Top 10k strings from Trading Game, The (1986)(Relax Games).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /
Back to the directory listing
5 TRADING 5 ;"BALANCE: `";x(x): 4 j$="TEXTILES" 4 ;" MILES"; 3 x(x)=x(x)+ 3 l(x)=l(x)- 3 j(x)=j(x)- 3 j$="TRUCK": 3 j$="TANKER": 3 j$="EMPTY": 3 j$="BARGE": 3 i(x)=i(x)- 3 d$="TEXTILES": 3 d$="FOOD": 3 ;"NORTH OF DEPOTS"; 3 ;"------NOT IN OPERATION--------": 3 (dem*tot): 2 z(x,e(x,uc)+to),y(x,e(x,uc)+to); 2 x(x)=x(x)-zx: 2 x(x)=x(x)-los: 2 w(x,d(x,uc)+to),v(x,d(x,uc)+to); 2 j(r)=j(r)+ 2 f$="TRUCK": 2 f$="TANKER": 2 f$="BARGE": 2 a(x,c(x,uc)+to),u(x,c(x,uc)+to); 2 UNLOAD TRANSPORT 2 TRADE = 2 TRADE 2 MOVE TRANSPORT 2 ;j$;" NUMBER 3 CHOSEN": 2 ;j$;" NUMBER 2 CHOSEN": 2 ;j$;" NUMBER 1 CHOSEN": 2 ;"TRUCK ";uc;" IS NOT INSURED": 2 ;"TANKER ";uc;" IS NOT INSURED": 2 ;"PRESS Y TO ACCEPT"; 2 ;"PRESS ENTER FOR POLICE LIST"; 2 ;"PLAYER ";r;" PAYS OFF"; 2 ;"OFFER REJECTED": 2 ;"INSURANCE CHARGES: `";zx: 2 ;"ENTER ";j$;" NUMBER" 2 ;"BARGE ";uc;" IS NOT INSURED": 2 ;"BALANCE: `";x(r): 2 (j(r)*(pe/100 2 REELAX GAMES 1985 1 z(x,t),y(x,t); 1 z(x,pe)=z(y,e(y,u)) 1 z(x,e(x,r)),y(x,e(x,r)); 1 z(v,e(v,c)),y(v,e(v,c)); 1 z(r,on)=z(r,e(r,t)) 1 y(x,sq)=28 1 y(x,pe)=y(y,e(y,u)) 1 y(r,on)=y(r,e(r,t)) 1 x(x)>70000 1 x(x)>130000 1 x(x)=x(x)-fu: 1 x(x)=x(x)+pay 1 x(x)=x(x)+bor: 1 x(x)=20000 1 x(x)<70000 1 x(x)<130000 1 x(r)=x(r)-r(r): 1 x(r)=x(r)-(p(r)*q(r)): 1 x(r)=x(r)- 1 x(r)=x(r)+zx: 1 w(x,t),v(x,t); 1 w(x,pe)=w(y,d(y,u)) 1 w(x,d(x,r)),v(x,d(x,r)); 1 w(v,d(v,c)),v(v,d(v,c)); 1 w(r,on)=w(r,d(r,t)) 1 v(x,sq)=28 1 v(x,sq)=13 1 v(x,pe)=v(y,d(y,u)) 1 v(r,on)=v(r,d(r,t)) 1 u(x,sq)=28 1 u(x,sq)=13 1 u(x,pe)=u(y,c(y,u)) 1 u(r,on)=u(r,c(r,t)) 1 sq=e(x,uc): 1 sq=d(x,uc): 1 sq=c(x,uc): 1 s(t,r)=s(t,r)+.3 1 s(pe,to)=s(pe,to)-.1 1 r(x)=r(x)+bor 1 r(t)=r(t)+pe: 1 r(r)=r(r)-x(r): 1 r(r)=r(r)+ 1 q(x)=q(x)+dem: 1 q(x)=q(x)+3 1 q(r)=q(r)-3 1 q(r)=q(r)+2 1 pe=e(x,uc)+to+1 1 pe=d(x,uc)+to+1 1 pe=c(x,uc)+to+1 1 pc=s(pe,to): 1 p(x)=p(x)+hi: 1 p(x)=p(x)+ 1 p(x)+hi>100 1 p(r)=p(r)-t: 1 o(x,uc)=crg: 1 n(x,uc)=crg: 1 m(x,uc)=crg: 1 lo=h(x,uc): 1 lo=g(x,uc): 1 lo=f(x,uc): 1 l(x)=l(x)-tot 1 l(r)=l(r)- 1 l(r)=l(r)+ 1 j(x)=j(x)-tot 1 j(r)=j(r)- 1 i(x)=i(x)-tot 1 i(r)=i(r)- 1 i(r)=i(r)+ 1 fu=st*1350 1 f$="TEXTILES": 1 f$="FOOD": 1 e(x,uc)=e(x,uc)+to: 1 e(x,uc)=e(x,uc)+st: 1 e(x,uc)+st 1 d(x,uc)=d(x,uc)+to: 1 d(x,uc)=d(x,uc)+st: 1 d(x,uc)+st 1 c(x,uc)=c(x,uc)+to: 1 c(x,uc)=c(x,uc)+st: 1 c(x,uc)+st 1 bal=bal+pay 1 b d f h j l n"' 1 a(x,t),u(x,t); 1 a(x,sq)=10 1 a(x,pe)=a(y,c(y,u)) 1 a(x,c(x,r)),u(x,c(x,r)); 1 a(v,c(v,c)),u(v,c(v,c)); 1 a(r,on)=a(r,c(r,t)) 1 a c e g i k m"' 1 WEEK ";gon;" REPORT 1 TYPE INSURANCE PAYMENT " 1 TRANSPORT MOVED 1 TRANSPORT CHOSEN 1 TRADING ` 1 ROAD ACCIDENT 1 PRODUCE TOWN 1 2 3 " 1 PRESS O FOR OIL,T FOR TEXTILES"; 1 PRESS ENTER 1 PLEASE WAIT 1 PLAYER ";x;" DATA" 1 OPERATIONAL TRANSPORT 1 OBTAIN LOAN 1 LOW CANAL LEVEL 1 LOAD UNITS" 1 LOAD TRANSPORT" 1 LOAD REPORT 1 LOAD CARGO 1 INSURE TRANSPORT" 1 INSURE ";j$ 1 INFORMATION 1 HIRE PERSONNEL" 1 GAME"'''"PLEASE ENTER NUMBER OF PLAYERS" 1 DEPOT ";x;" WEEK ";gon;" REPORT 1 DEPOT ";r;" NEW STOCKS 1 CONFIRMATION 1 COLLISION AT SEA 1 ;tot;" UNITS OF ";j$; 1 ;t;" EMPLOYEES ARE SACKED": 1 ;pe;"% OF STOCKS ARE STOLEN"; 1 ;pe;"% OF STOCKS ARE DESTROYED": 1 ;lo;" UNITS OF ";d$; 1 ;j$;" NUMBER ";uc; 1 ;j$;" ";uc;" WILL MOVE ";st*10 1 ;j$;" ";uc;" IS NOT"; 1 ;j$;" ";uc;" HAS UNLOADED"; 1 ;j$;" ";uc;" HAS MOVED ";st*10 1 ;h(r,t);" UNITS OF CARGO ARE LOST": 1 ;g(r,t);" UNITS OF CARGO ARE LOST": 1 ;f(r,t);" UNITS OF CARGO ARE LOST": 1 ;(e(x,r)-1 1 ;(d(x,r)-1 1 ;(c(x,r)-1 1 ;"`";pe;" LOAN": 1 ;"`";dem;" INCREASE IN WAGES"; 1 ;"`";bor;" HAS BEEN BORROWED ": 1 ;"YOUR ";j$;" STOCKS AT `";dem;" PU"; 1 ;"YOU ARE SUMMONED TO PAY"; 1 ;"WEEKLY WAGE: `"; 1 ;"WAGES: `";q(r); 1 ;"WAGE: `";q(x): 1 ;"WAGE LEVEL: `";q(x): 1 ;"WAGE DEMAND REJECTED": 1 ;"WAGE CUT OF `3": 1 ;"WAGE CLAIM"; 1 ;"UP TO `50000 PERMITTED" 1 ;"UNLOAD TRANSPORT": 1 ;"UNITS: ";los: 1 ;"UNITS: ";lo 1 ;"UNITS LOADED: "; 1 ;"UNITS LOADED: " 1 ;"UNION WILL ACCEPT `3 RISE"; 1 ;"UNION MEETING CALLED"; 1 ;"TYPE: ";j$; 1 ;"TRUCKS IN OPERATION: ";do 1 ;"TRUCK NO DIST CARGO UNITS" 1 ;"TRUCK INSURANCE CHARGES RISE"; 1 ;"TRUCK ";uc;" IS TO BE LOADED": 1 ;"TRUCK ";t;" FROM DEPOT ";r; 1 ;"TRANSPORT: ";j$;" ";uc; 1 ;"TOTALLY WRECKED": 1 ;"TOTALLY SUBMERGED": 1 ;"TOTAL WEEKS PLAYED: ";gon; 1 ;"TOTAL WEEKLY PROFIT: `";bal; 1 ;"TOTAL LOSS: `";los; 1 ;"TO BE LOADED INTO ";j$ 1 ;"THERE HAS BEEN A GENERAL WAGE"; 1 ;"TEXTILES: ";i(r);" UNITS"; 1 ;"TEXTILES"; 1 ;"TEXTILES STOCK: ";i(x);" UNITS"; 1 ;"TEXTILES RECEIVED: ";p(r)*tex;" UNITS"; 1 ;"TANKERS IN OPERATION: ";do: 1 ;"TANKER"; 1 ;"TANKER NO DIST CARGO UNITS" 1 ;"TANKER INSURANCE CHARGES RISE"; 1 ;"TANKER ";uc;" IS TO BE LOADED": 1 ;"TANKER ";t;" FROM DEPOT ";r; 1 ;"STRIKE ACTION": 1 ;"SOLD AT `";dem;" PER UNIT"; 1 ;"SITUATED IN A TOWN": 1 ;"SABOTAGE AT DEPOT ";r: 1 ;"REMAINING BALANCE: `";x(x)-los: 1 ;"PROFIT: `"; 1 ;"PRESS Y OR N" 1 ;"PRESS T FOR TRUCK,B FOR BARGE"; 1 ;"PRESS S TO START NEW GAME"; 1 ;"PRESS N TO REJECT" 1 ;"PRESS N TO REJECT" 1 ;"PRESS ENTER FOR REPORT LIST"; 1 ;"PRESS E IF END OF PLAY" 1 ;"PRESS COMMAND LETTER PLAYER ";x; 1 ;"PRESS 'C' TO CONTINUE"; 1 ;"POLICE FINE: `"; 1 ;"PLAYER ";x;" HAS ";p(x);" WORKERS" 1 ;"PLAYER ";t;" TAKES OUT"; 1 ;"PLAYER ";r;" OWES `";r(r): 1 ;"PLAYER ";r;" MONEY OWED: `";r(r); 1 ;"PLAYER ";r;" IS BANKRUPT": 1 ;"PLAYER ";r;" BALANCE: `";x(r): 1 ;"PLAYER ";r;" BALANCE: `";x(r) 1 ;"PERSONNEL: ";p(x); 1 ;"PERSONNEL: ";p(x): 1 ;"PERSONNEL: ";p(r); 1 ;"PERSONNEL WAGE: `";q(x); 1 ;"PERSONNEL TOTAL MUST BE 1 ;"PERSONNEL DEMAND `";dem;" RISE"; 1 ;"PAYMENT: `";pay; 1 ;"PART OF THE LOAN": 1 ;"OR 'S' TO STOP" 1 ;"OIL: ";j(r);" UNITS"; 1 ;"OIL STOCKS INCREASED BY ";pe;"%": 1 ;"OIL STOCK: ";j(x);" UNITS"; 1 ;"OIL RECEIVED: ";p(r)*oi;" UNITS" 1 ;"OFFERS TO BUY ";pe;"% OF"; 1 ;"OF TRUCKS DESTROYED": 1 ;"OF TANKERS DESTROYED": 1 ;"OF BARGES DESTROYED": 1 ;"OBTAIN LOAN": 1 ;"NUMBER OF DELIVERIES: ";del; 1 ;"NO. OF PLAYERS IN DEBT: ";do: 1 ;"NO TRUCKS AVAILABLE": 1 ;"NO TRANSPORT MOVEMENT"; 1 ;"NO TANKERS AVAILABLE": 1 ;"NO BARGES AVAILABLE": 1 ;"NO ACTION TAKEN": 1 ;"NEW WAGE: `";q(x): 1 ;"NEW WAGE LEVEL: `";q(r): 1 ;"NEW PERSONNEL TOTAL IS ";p(x): 1 ;"NEW PERSONNEL LEVEL: ";p(x); 1 ;"NEW PERSONNEL LEVEL: ";p(r); 1 ;"NEW BALANCE: `";x(x): 1 ;"NEW BALANCE: `";x(x) 1 ;"MOVE TRANSPORT": 1 ;"MONEY OWED: `";r(x): 1 ;"MKT PRICE: `";pc: 1 ;"MAXIMUM LIMIT 3 ";j$;"S"; 1 ;"MARKET PRICES": 1 ;"MANAGEMENT ACCEPTS"; 1 ;"LOAD TRANSPORT": 1 ;"LOAD ";f$; 1 ;"K FOR TANKER" 1 ;"INTEREST RATES RISE BY 1%": 1 ;"INTEREST RATE: ";int;"%": 1 ;"INTEREST RATE: ";int;"%" 1 ;"INSURE TRANSPORT": 1 ;"INSURE ";f$; 1 ;"INSURANCE REBATE: `";zx: 1 ;"INSUFFICENT FUNDS,OBTAIN LOAN": 1 ;"INSERT TAPE"; 1 ;"INCREASE OF `2": 1 ;"IN TOWN ";to: 1 ;"IN NIGHT TIME RAID": 1 ;"IN CARGO SECTION OF DEPOT"; 1 ;"ILLEGAL ENTRY": 1 ;"HIRES ";hi;" NEW PERSONNEL" 1 ;"HIRE PERSONNEL": 1 ;"HIGH TURNOVER RATES ACHIEVED"; 1 ;"H,D,P,I,L,U,M,B,C,G OR S" 1 ;"GENERAL INFO": 1 ;"FUEL COSTS: `" 1 ;"FOR WEEK ";gon; 1 ;"FOOD: ";l(r);" UNITS": 1 ;"FOOD STOCK: ";l(x);" UNITS": 1 ;"FOOD RECEIVED: ";p(r)*fod;" UNITS": 1 ;"FINAL BALANCE: `";x(x)+pay: 1 ;"F FOR FOOD" 1 ;"EXCISE DUTIES AT "; 1 ;"ENTER UNITS OF ";f$ 1 ;"ENTER TRANSPORT TYPE": 1 ;"ENTER NUMBER OF PERSONNEL" 1 ;"ENTER NUMBER OF MOVES " 1 ;"ENTER AMOUNT WANTED"; 1 ;"END OF MOVE": 1 ;"EMPLOYEES CAUGHT STORING DRUGS"; 1 ;"DUE TO LACK OF PRODUCTION": 1 ;"DUE TO INFLATION"; 1 ;"DISPLAY DATA": 1 ;"DESTROYED COMPLETELY": 1 ;"DEPOT REPORT"; 1 ;"DEPOT HOLDS ";zt;" UNITS" 1 ;"DEPOT ";r;" REPORT": 1 ;"DEPOT ";r;" NEWS": 1 ;"DEPOT ";r;" HOLDINGS"; 1 ;"DEMAND REJECTED ": 1 ;"DECISION: " 1 ;"DEADLINE DATE: ";round;" WEEKS": 1 ;"DEADLINE DATE HAS ARRIVED": 1 ;"CURRENT BALANCE: `";x(x); 1 ;"COMPUTER"; 1 ;"COMPUTER UNLOADS TRANSPORT": 1 ;"COMPUTER MOVES TRANSPORT": 1 ;"COMPUTER MOVE": 1 ;"COMPUTER IS THINKING...": 1 ;"CARGO: OIL"; 1 ;"CARGO: ";f$; 1 ;"CARGO: ";d$; 1 ;"CARGO: "; 1 ;"BY `100 TO `";tr+100 1 ;"BY `100 TO `";ta+100 1 ;"BY `100 TO `";ba+100 1 ;"BARGES IN OPERATION: ";do 1 ;"BARGE NO DIST CARGO UNITS" 1 ;"BARGE INSURANCE CHARGES RISE"; 1 ;"BARGE ";uc;" IS TO BE LOADED": 1 ;"BARGE ";t;" FROM DEPOT ";r; 1 ;"BALANCE: `";x(x); 1 ;"AND PRESS 'S' TO SAVE" 1 ;"ALL OF LOAN": 1 ;"ALL ";j$;"S OPERATIONAL": 1 ;"A TO ABORT"; 1 ;"A MAJOR TRANSPORT COMPANY"; 1 ;"25% LOSS OF CASH RESERVES"; 1 ;"20% OF DEPOT STOCKS ARE LOST"; 1 ;" STOCK SOLD ": 1 ;" FIRE AT DEPOT ";x;" ": 1 888888888888888888888888888888888zzzzzzzzzzzzzzzzzzzzzzzzzzzzzz88||||||||||||||||||||||||||||||88~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~88yyyyyyyyyyyyyyyyyyyyyyyyyyyyyy888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888xxxxx888888888888888888888888888xxxxx888888zzzzzzzzzzzzzzz888888xxxxx888888zzzzzzzzzzzzzzz88888888888888888zzzzzzzzzzzzzzz88888888888888888zzzzzzzzzzzzzzz88888888888888888zzzzzzzzzzzzzzz88888888888888888zzzzzzzzzzzzzzz88888888888888888zzzzzzzzzzzzzzz88888888888888888zzzzzzzzzzzzzzz888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888 1 +((q(x)/10 1 *(s$="3")+4 1 *(s$="2")+3 1 );"% OF CASH RESERVES": 1 )+(p(x)/10 1 (x(x)*pe): 1 (tot*dem); 1 (tex*p(r)): 1 (s(pe,to)*lo): 1 (r(r)*(int/100 1 (p(x)*q(x)) 1 (oi*p(r)): 1 (l(x)*(pe/100 1 (l(r)*(pe/100 1 (j(x)*(pe/100 1 (i(x)*(pe/100 1 (i(r)*(pe/100 1 (fod*p(r)): 1 ''"PLEASE ENTER LENGTH OF GAME" 1 '"NUMBER OF PLAYERS: ";pla: 1 '"LENGTH OF GAME: ";round;" WEEKS": 1 '"ENTER NUMBER OF WEEKS (1-104) " 1 '"DO YOU WISH COMPUTER TO PLAY ?" 1 '"COMPUTER WILL PLAY AS PLAYER 1": 1 '"BETWEEN 2 AND 4 " 1 "NEW EMPLOYEES "; 1